home *** CD-ROM | disk | FTP | other *** search
- object Form27: TForm27
- Left = 334
- Top = 107
- Width = 434
- Height = 228
- Caption = 'Information Stamp'
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = False
- PixelsPerInch = 120
- TextHeight = 16
- object GroupBox1: TGroupBox
- Left = 10
- Top = 10
- Width = 168
- Height = 178
- Caption = 'Image Information'
- TabOrder = 0
- object CheckBox1: TCheckBox
- Left = 10
- Top = 20
- Width = 80
- Height = 21
- Caption = 'Filename'
- TabOrder = 0
- end
- object CheckBox2: TCheckBox
- Left = 10
- Top = 79
- Width = 149
- Height = 21
- Caption = 'Camera make/model'
- TabOrder = 1
- end
- object CheckBox3: TCheckBox
- Left = 10
- Top = 39
- Width = 80
- Height = 21
- Caption = 'File size'
- TabOrder = 2
- end
- object CheckBox4: TCheckBox
- Left = 10
- Top = 59
- Width = 149
- Height = 21
- Caption = 'Res (x,y), ISO, #bits'
- TabOrder = 3
- end
- object CheckBox5: TCheckBox
- Left = 10
- Top = 98
- Width = 119
- Height = 21
- Caption = 'Image date/time'
- Checked = True
- State = cbChecked
- TabOrder = 4
- end
- object CheckBox6: TCheckBox
- Left = 10
- Top = 118
- Width = 129
- Height = 21
- Caption = 'f-number/shutter'
- Checked = True
- State = cbChecked
- TabOrder = 5
- end
- object CheckBox7: TCheckBox
- Left = 10
- Top = 138
- Width = 109
- Height = 21
- Caption = 'Flash on/off'
- Checked = True
- State = cbChecked
- TabOrder = 6
- end
- end
- object GroupBox2: TGroupBox
- Left = 187
- Top = 10
- Width = 218
- Height = 80
- Caption = 'Position'
- TabOrder = 1
- object RadioButton1: TRadioButton
- Left = 10
- Top = 20
- Width = 80
- Height = 21
- Caption = 'Upper left'
- TabOrder = 0
- end
- object RadioButton2: TRadioButton
- Left = 108
- Top = 20
- Width = 100
- Height = 21
- Caption = 'Upper right'
- TabOrder = 1
- end
- object RadioButton3: TRadioButton
- Left = 10
- Top = 49
- Width = 90
- Height = 21
- Caption = 'Lower left'
- TabOrder = 2
- end
- object RadioButton4: TRadioButton
- Left = 108
- Top = 49
- Width = 100
- Height = 21
- Caption = 'Lower right'
- Checked = True
- TabOrder = 3
- TabStop = True
- end
- end
- object BitBtn1: TBitBtn
- Left = 256
- Top = 98
- Width = 92
- Height = 29
- Caption = 'Font'
- TabOrder = 2
- OnClick = BitBtn1Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333FFF33FFFFF33333300033000
- 00333337773377777333333330333300033333337FF33777F333333330733300
- 0333333377FFF777F33333333700000073333333777777773333333333033000
- 3333333337FF777F333333333307300033333333377F777F3333333333703007
- 33333333377F7773333333333330000333333333337777F33333333333300003
- 33333333337777F3333333333337007333333333337777333333333333330033
- 3333333333377333333333333333033333333333333733333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- end
- object BitBtn2: TBitBtn
- Left = 325
- Top = 158
- Width = 92
- Height = 30
- Caption = 'Ok'
- TabOrder = 3
- OnClick = BitBtn2Click
- Kind = bkOK
- end
- object FontDialog1: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 304
- Top = 88
- end
- end
-